#!/usr/bin/perl -w

$error = "ErrorCode626";

open($file, "<", "underbar.txt") or $error = "ErrorCode627";

if ($error =~ ErrorCode626) {
while ($line = <$file>) {
	if($line =~ /^\s*([^\#][.^\S]+)\s+(([\s]*[.^\S]+)+)\s*$/) {
		$error = "No error";
		print $line."\n";
	}
}
close $file;
}

if (!($error =~ "No error")) { print $error; }

exit(5);
